      FUNCTION   RFCT(X)                                                00000100
      IMPLICIT REAL*8(A-H,O-Z)                                          00000200
      COMMON  /R2INTR/D(6),CF,M,N                                       00000300
      AL=CF                                                             00000400
      B=D(6)                                                            00000500
      Z=0.D0                                                            00000600
      DO 1 K=1,5                                                        00000700
      Z=Z+D(K)/(X/AL+N+M+2)**K                                          00000800
    1 CONTINUE                                                          00000900
      RFCT=DEXP(Z)*(X/AL+N+M+2)**B                                      00001000
      RETURN                                                            00001100
      END                                                               00001200
